home *** CD-ROM | disk | FTP | other *** search
- property mySprite, myName, myType, ancestor
-
- on beginSprite me
- global gPopUpMenuMan, gActorListMan
- mySprite = me.spriteNum
- myType = #menuItem
- ancestor = new(script("House_popUpMenuItemActions"), mySprite)
- reportPopUpSpriteNum(gPopUpMenuMan, myType, mySprite)
- hide(me)
- registerSprite(gActorListMan, mySprite)
- end
-
- on endSprite me
- global gActorListMan
- unRegisterSprite(gActorListMan, mySprite)
- sprite(mySprite).visible = 1
- end
-
- on showProps me
- put RETURN
- PropNum = count(me)
- repeat with x = 1 to PropNum
- prop = 0
- thisProp = getPropAt(me, x)
- if thisProp = #myHandlers then
- next repeat
- end if
- prop = string(getPropAt(me, x)) && "=" && getaProp(me, thisProp)
- put prop
- end repeat
- if objectp(ancestor) then
- put "ancestor properties...."
- showProps(ancestor)
- end if
- end
-